home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / CDROM / SCDPlayer / Rexx / First20Sec.scdp < prev    next >
Encoding:
Text File  |  1996-10-09  |  277 b   |  20 lines
  1. /* ARexx program for playing first 20 seconds of each track */
  2. OPTIONS RESULTS
  3.  
  4. STATUS
  5. IF RESULT=NODISK THEN EXIT
  6.  
  7. i=0
  8. TRACKS
  9. MAX=RESULT
  10. USERACTION
  11. AC=RESULT
  12. DO WHILE AC=0 & i<MAX
  13.     i=i+1
  14.     PLAYTRACK i
  15.     ADDRESS COMMAND Delay 20000
  16.     USERACTION
  17.     AC=RESULT
  18.     END
  19. IF AC=0 THEN CDSTOP
  20.